home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DTP / P-Z / QuirkLag v0.5.sea / QuirkLag v0.5 ƒ / QuirkLag v0.5 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-03-08  |  6KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.5</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>3049</cardID>
  8.     <listID>4152</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>416</width>
  14.         <height>240</height>
  15.     </cardSize>
  16.     <script>-- QuirkLag version 0.5 ¬© 1992 Rackensack Software-- This stack may not be sold, rented, leased, given away, or otherwise-- distributed without the express consent of Scott Walker, Rackensack-- Software. This stack, and all XFCNs contained within, are the property-- of Rackensack Software.-- Permission to distribute this stack via electronic information services-- and bulletin board services is hereby granted. However, this stack shall-- not be distributed as part of any disk-based collection of software for-- which any price is charged, including the cost of disk duplication, nor-- may it be included or bundled with any other software or hardware-- product sold for profit.-- Scott Walker-- Rackensack Software-- 856 Ponce de Leon Ave., Apt. 5A-- Atlanta, GA 30306-- CompuServe: 72330,2424-- America Online: COPS TECH-- AppleLink: COPSon openStackset lockScreen to trueput empty into fld "File Name"put empty into fld "Font List"palette "QuirkLag Toolbox"do BuildMyMenusend openStackon BuildMyMenusif the commandKey is up thenhide menubarrepeat with x=(the number of menus)-2 down to 4delete menu xend repeatdo createMenuput menuitem "Quit HyperCard" of menu "File" into menu "File"set the name of menuitem "Quit HyperCard" of menu "file" to "Quit"set commandChar of menuItem "Quit"  of menu "File" to "Q"set the menuMsg of menuItem "Quit" of menu "File" to "QuitHyperCard"set userlevel to 2if there is a menu "Go" thendelete menu "Go"end ifif there is a menu "Font" thendelete menu "Font"end ifif there is a menu "Style" thendelete menu "Style"end ifrepeat with u=the number of menuitems of menu "Edit" down to 7delete menuitem u of menu "Edit"end repeatset name of menuitem 1 of menu 1 to "About QuirkLag‚Ķ"set menuMsg of menuitem 1 of menu 1 to "AboutQL"set the highlight of background button "Append Report" to falseshow menubarend ifend BuildMyMenuson createMenuif there is a menu "QuirkLag" thenexit createMenuend ifcreate menu "QuirkLag"put createMenuItems() into menu "QuirkLag" with menuMsg createMenuMsgs()set commandChar of menuItem 1 of menu "QuirkLag" to "S"set commandChar of menuItem 2 of menu "QuirkLag" to "P"set commandChar of menuItem 3 of menu "QuirkLag" to "T"end createMenufunction createMenuItemsreturn "Scan file‚Ķ" & return & ¬¨"Print report‚Ķ" & return & ¬¨"Transfer‚Ķ" & returnend createMenuItemsfunction createMenuMsgsreturn "do ScanFile" & return & ¬¨"do ReportPrint" & return & "do Transfer"end createMenuMsgson closeStackset the lockscreen to trueset the userlevel to 5doMenu "Compact Stack"end closeStackon ScanFileif the highlight of background button "Append Report" is false thenput empty into fld "Font List"end ifanswer file "File to scan:" of type XDOCif the result is not empty thenexit ScanFileelseput it into theDocend ifput theDoc into fld "File Name"-- put the ticks into StartTimeopen file theDocread from file theDoc for 668put empty into itread from file theDoc for 360put it into theDataclose file theDocput GetQXPFontList(theData) into MyFontListsort lines of MyFontList-- put the ticks into EndTime-- put "Elapsed Time:"&(EndTime-StartTime)/60if fld "Font List" is not empty thenput return&return after fld "Font List"end ifput theDoc&return after fld "Font List"put MyFontList after fld "Font List"set the scroll of fld "Font List" to 10000end ScanFileon ReportPrintput false into PrinterChosenanswer "Print to current printer or select another:" with "Cancel" or "Select" or "Current"if it is "Select" thendomenu "Chooser"wait for 120 ticksrepeat until Proceed is trueanswer "OK to proceed?" with "Cancel" or "OK"if it is cancel thenput true into Proceedexit ReportPrintelseput true into Proceedend ifend repeatelseif it is "Cancel" thenexit reportPrintend ifend ifopen report printing with template "Font List"print this cdclose printingend ReportPrinton Transferanswer file "Application to Launch:" of type APPL,STAKif the result is empty thenopen itend ifend Transferon quitHypercardset lockscreen to truedo CleanupdoMenu "Quit HyperCard"end quitHypercardon aboutQLanswer "QuirkLag 0.5 ¬©1992 Rackensack Software"&return&"Special Thanks to Greg Swann" with "Help" or "OK"if it is "Help" thendo HelpMeend ifend aboutQLon esedit script of this stackend eson HelpMeask "Help on what topic?" with "all"put it into findStringset lockScreen to trueif findString is not "All" thenfind string findString in fld 1 of last cdif the foundChunk is not empty thenset the scroll of fld 1 of last cd to the scroll of fld 1 of last cd-40set lockScreen to falseselect the foundChunkelseflash 1beepanswer "Not Found"end ifelsevisual dissolvego last cdset the scroll of fld 1 of last cd to 1end ifend HelpMeon Cleanupset userlevel to 5reset menubarend Cleanupon resumeStackdo BuildMyMenuspass resumeStackend resumeStackon suspendStackreset menubarpass suspendStackend suspendStack</script>
  17.     <background id="2367" file="background_2367.xml" name="" />
  18.     <background id="2768" file="background_2768.xml" name="" />
  19.     <card id="3049" file="card_3049.xml" marked="false" name="" owner="2768" />
  20.     <card id="4841" file="card_4841.xml" marked="false" name="" owner="2367" />
  21. </stack>
  22.